home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Frames of Reference / background_9098.txt < prev    next >
Text File  |  1990-04-02  |  2KB  |  83 lines
  1. -- background: 9098 from stack: in
  2. -- bmap block id: 10542
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Experiment 1 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=428 top=38 right=69 bottom=498
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Main Menu
  20.  
  21.  
  22. -- part 3 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=428 top=119 right=150 bottom=498
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: parameter
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=428 top=293 right=328 bottom=498
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 1020 / 1020
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Help
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   show card field "help"
  51.   wait until the mouse is down
  52.   hide card field "help"
  53. end mouseUp
  54.  
  55.  
  56. -- part 6 (field)
  57. -- low flags: 01
  58. -- high flags: 0002
  59. -- rect: left=428 top=160 right=289 bottom=498
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 3
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Blurb
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   global cardClear1,dropHeight1
  71.  
  72.   if cardClear1 is true then runExperiment
  73.   else
  74.     clearCardGraphics
  75.     set the loc of button "electromagnet" to 20,(271-dropHeight1)
  76.     set the loc of button "ball" to 20,(300-dropHeight1)
  77.     put "Press this field to begin tracing the path of the ball." into me
  78.     put true into cardClear1
  79.     pass mouseUp
  80.   end if
  81. end mouseUp
  82.  
  83.